'**********************************************************************
'  Visual Basic Transformation Script
'  Copy each source column to the
'  destination column
'************************************************************************

Function Main()
	DTSDestination("prod_supplier_name") =  _
		DTSLookups("SupplierLookup").Execute(DTSSource("SupplierID").Value)
	Main = DTSTransformStat_OK
End Function